home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 3 / Amoszine 3.adf / MORE_SOURCE / AJC-BLAST-EFFECT.AMOS / AJC-BLAST-EFFECT.amosSourceCode
AMOS Source Code  |  1992-02-26  |  456b  |  27 lines
  1. '
  2. ' "BLAST EFFECT" 
  3. ' By Andrew Campbell   
  4. '
  5.  
  6. Screen Open 0,320,256,32,Lowres
  7. Curs Off : Flash Off : Curs Off : Hide On : Cls 0
  8.  
  9. Palette $0,$101,$202,$303,$404,$505,$606,$707,$808,$909,$A0A,$B0B,$C0C,$D0D,$E0E,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,0,0
  10. C=1 : Ink C : Shift Up 1,1,31,1
  11.  
  12.  Repeat 
  13.   Gosub CS
  14.   Inc SZ
  15.   Circle 160,256-SZ,SZ
  16.  Until Mouse Key
  17.  
  18. ED:
  19. Shift Off 
  20. Fade 1 : Wait 15 : Cls 0
  21. Edit 
  22.  
  23. CS:
  24. Inc C
  25. If C>30 : C=1 : End If 
  26. Ink C
  27. Return